Computer Life: SuperPac/SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO/pc/demos/nmmdemo/nmmdemo.exe/TENDER.DXR/00264.ls

Text File | 1995-04-27 | 215 b | 9 lines

on exitFrame
  set thetime to the timer - 570
  set newVal to 255 - float(float(thetime) / float(180) * float(255))
  set the volume of sprite 8 to max(newVal, 0)
  if newVal > 0 then
    go(the frame)
  end if
end